#! /usr/bin/perl -w

my @name=();

while (<STDIN>) {

    chomp($_);

    if ($_=~m/>/){
        @name=split(/#/,$_);
		}
	print "$name[0]\t$name[2]\t$name[3]\n";

    }